home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / BBS / RANDOM13.ZIP / RANDOM.WCX (.txt) < prev    next >
Encoding:
Wildcat! WCX  |  1996-03-15  |  1.1 KB  |  93 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  1133 bytes  03/05/125  02:14:32pm
  3. '! Code Segment Size  :759 bytes
  4. '! Data Segment Size  :4481 bytes
  5. '! String Segment Size:374 bytes
  6. '! Compiled with WCC version ? 019C017B
  7.  
  8.       Declare Sub Sub64
  9.       Declare Sub Sub178
  10.       Declare Sub Sub637
  11.  
  12.       Dim s4463 As String*1
  13.       Dim i4464 As Integer
  14.       Dim i4466 As Integer
  15.       Dim s4468 As String*1
  16.       Dim i4469 As Integer
  17.       Dim i4471 As Integer
  18.       Dim s4473 As String
  19.       Dim s4477 As String
  20.  
  21.       Sub64
  22.       Sub178
  23.  
  24. '! Called 1 time
  25.       Sub Sub64
  26.         ActivityLog "Randomzier Program Executed"
  27.         Open ProgPath + "random.cfg" For Input As 1
  28.         Input #1, s4463
  29.         Input #1, i4464
  30.         Input #1, i4466
  31.         Input #1, s4468
  32.         Input #1, i4469
  33.         Input #1, i4471
  34.         Input #1, s4473
  35.         Input #1, s4477
  36.         Close 1
  37.       End Sub
  38.  
  39. '! Called 1 time
  40.       Sub Sub178
  41.         If UCase(s4463) = "I" Then
  42.           If i4464 > i4469 Then
  43.             i4464 = 1
  44.           End If
  45.   234     If i4466 > i4471 Then
  46.             i4466 = 1
  47.           End If
  48.   259   Else
  49.   265     If UCase(s4463) = "R" Then
  50.             i4469 = i4469 + 1
  51.             Do
  52.   301         i4464 = Int(Rnd(1) * i4469)
  53.             Loop While i4464 = 0
  54.             i4471 = i4471 + 1
  55.             Do
  56.   353         i4466 = Int(Rnd(1) * i4471)
  57.             Loop While i4466 = 0
  58.           End If
  59.         End If
  60.   391   CopyFile(s4473 + "prelog" + Str(i4464) + ".bbs", s4477 + "prelog.bbs")
  61.         i4464 = i4464 + 1
  62.         If UCase(s4468) = "Y" Then
  63.           CopyFile(s4473 + "goodby" + Str(i4466) + ".bbs", s4477 + "goodbye.bbs")
  64.           ActivityLog "PRELOG and GOODBYE.BBS files were updated by Randomizer."
  65.           i4466 = i4466 + 1
  66.         Else
  67.   541     If UCase(s4468) = "N" Then
  68.             ActivityLog "PRELOG file was updated by Randomizer."
  69.           End If
  70.         End If
  71.   571   If UCase(s4463) = "I" Then
  72.           Sub637
  73.         End If
  74.   599   Print "@CLS@@0E@Randomizer v1.3    (C) Copyright 1995, 96 Sapphire Software"
  75.         Print "Support BBS  ■  @0B@T@09@he @0B@C@09@oral @0B@R@09@eef@0E@  ■  " + "(517) 894-0729@0E@"
  76.         Print
  77.         Delay 1
  78.       End Sub
  79.  
  80. '! Called 1 time
  81.       Sub Sub637
  82.         Open ProgPath + "random.cfg" For Output As 2
  83.         Print #2, s4463
  84.         Print #2, i4464
  85.         Print #2, i4466
  86.         Print #2, s4468
  87.         Print #2, i4469
  88.         Print #2, i4471
  89.         Print #2, s4473
  90.         Print #2, s4477
  91.         Close 2
  92.       End Sub
  93.